Za każdym razem gdy próbuję uruchomić ten kawałek skryptu to w win10 wywala mi błąd, że nie można odnalezc nazwy grupy gdy na win7 wszystko działa okej.
strComputer = "."
Dim objGroup
Set objWMISerrvice = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objGroup = GetObject("WinNT://" & strComputer & "/Users,group")
Set colItems = objWMISerrvice.ExecQuery("Select * from Win32_UserAccount Where LocalAccount = true")
Set WshShell = WScript.CreateObject("WScript.Shell")
strUser = WshShell.ExpandEnvironmentStrings( "%USERNAME%" )
If WScript.Arguments.Length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe" _
, """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
WScript.Quit
End if
Wscript.Echo "Actual user loged in: " & strUser
Gdy uruchamiam lusrmgr.msc mam komunikat, że przystawka uzytkownicy i grupy lokalne nie moze byc uzywana z ta wersją systemu. Czyli nie ma tego w win 10 home w takim razie jak to zrobić żeby pobierało mi userów.