strPath = “\\Myserver\MyShare\”
instead of what strpath= now
From: Marcum, John
Sent: Monday, July 21, 2014 1:27 PM
To: scripting@lists.myitforum.com
What would I need to change in order for this script to a the file named
userName.html to the path \\myserver\myshare?
Dim objNetwork
Dim userName
Set objNetwork = CreateObject("WScript.Network")
userName = objNetwork.UserName
Set oGpm = CreateObject("GPMGMT.GPM")
Set oGpConst = oGpm.GetConstants()
Set oRSOP = oGpm.GetRSOP( oGpConst.RSOPModeLogging, "" , 0)
strpath = Left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName,"\", -1,
vbTextCompare) )
oRSOP.LoggingFlags = 0
oRSOP.CreateQueryResults()
Set oResult = oRSOP.GenerateReportToFile (oGpConst.ReportHTML, strPath &
userName)
oRSOP.ReleaseQueryResults()
WScript.Echo "Complete"
WScript.Quit()
John Marcum
MCITP, MCTS, MCSA
Desktop Architect
Bradley Arant Boult Cummings LLP
H_Logo
Confidentiality Notice: This e-mail is from a law firm and may be protected by
the attorney-client or work product privileges. If you have received this
message in error, please notify the sender by replying to this e-mail and then
delete it from your computer.
