VBScript pokazuje jakie dyski są podpięte, konfig drukarek na stacji itp....
dim objShell,objNetwork,collDrives
set objShell=CreateObject("Wscript.shell")
Set objNetwork=CreateObject("WScript.Network")
'title for popup window
strTitle="Welcome"
'enumerate mapped drives
strMappedDrives=EnumNetwork()
'enumerate mapped printers
strMappedPrint=EnumPrint()
'compose popup message text
strMsg=objNetwork.UserName & ", thank you for logging in to " &_
objNetwork.ComputerName & VbCrLf & vbcrlf
strMsg=strMsg & strMappedDrives & VbCrLf & VbCrLf
strMsg=strMsg & strMappedPrint & VbCrLf & VbCrLf
strMsg=strMsg & "It is now " & Now & VbCrLf
strMsg=strMsg & "Have a nice day."
'set time to -1 to never dismiss popup window
objShell.Popup strMsg,10,strTitle,vbOKOnly+vbInformation......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....Share Link:
