VBScript działa na win7 ale na win 10 już nie.

0

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.

0

U mnie działa (Windows 10 Pro v. 1703, x64, ENU). Więc może limit jest tylko w wersji Home nałożony.

0

To całkiem możliwe. Znalazłem ten filmik

i ludzie z wersją home dostają cały czas ten komunikat "This snapin may not be used with this edition of Windows 10. To manage user accounts for this computer, use the User Accounts tool in the Control Panel."

0

Dobra już znalazłem rozwiązanie, napisze dla potomnych. W notepad++ trzeba wejść w format ->zestaw znakow ->srodkowoeuropejskie->windows1250 a następnie zmienić w linijce users na Użytkownicy.

Set objGroup = GetObject("WinNT://" & strComputer & "/Użytkownicy,group")

Tylko konieczna jest zmiana formatu bo samo wpisanie Użytkownicy nie działa.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0