How to pushVNC on a remote computer with enabled (managed) windows firewall
Jak push ‘Nout’ VNC na vzdálenou stanici se zapnutým (řízeným) firewallem
‘ Lze spustit, resp. vypnout pouze lokalne
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
_______________________________________________
‘ Nakopíruj soubor
Const ForReading = 1
Const OverwriteExisting = TRUE
Const OverwriteExisting = TRUE
strComputer = "stanice-001"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strRemoteFile = "\\" & strComputer & "\C$\script.vbs"
objFSO.CopyFile "D:\Scripts\script.vbs", strRemoteFile, OverwriteExisting
strRemoteFile = "\\" & strComputer & "\C$\script.vbs"
objFSO.CopyFile "D:\Scripts\script.vbs", strRemoteFile, OverwriteExisting
___________________________________________________________________
‘ Spust hidden job z naplanovanych uloh
strComputer = "stanice-001"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("wscript.exe c:\script.vbs", "20080725092700.000000+120", _
False, 0, , True, JobID)
("wscript.exe c:\script.vbs", "20080725092700.000000+120", _
False, 0, , True, JobID)
‘ False indikuje, ze job se nebude opakovat
‘ pokud prepisu 0 na 1 tak job probehne ve stanoveny cas a pak jeste v pondeli, 2 ut. atd.
‘ True indikuje, ze job ma probehnout hidden
‘ pokud prepisu 0 na 1 tak job probehne ve stanoveny cas a pak jeste v pondeli, 2 ut. atd.
‘ True indikuje, ze job ma probehnout hidden
________________________________________________________________________________