VBScript - logowanie do serwera
Const wbemImpersonationLevelImpersonate = 3 strComputer = "server1_tu_wpisz_nazwę_serwera" strUser = "Administrator" strPassword = InputBox("Enter password for " & strUser & _ " on " & strComputer) 'connect to WMI Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") objSWbemLocator.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)
Share Link: 
