Bom dia,
Estou com o script abaixo que roda em cada máquina fazendo um inventário de softwares, ele grava um arquivo txt em uma pasta com as informações obtidas e dá-se o nome deste arquivo sendo o nome da máquina; estou precisando que o nome do arquivo seja montado pelo nome da máquina + chave usuário + nome do usuário (Como aparece no AD).
Exemplo: MCR001_USU2354_FERNANDO ASSIS
Script:
xxx
Dim strCompName
strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
strComputer & _
"\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")
strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
If colSoftware.Count > 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile( _
"\\SRV001\DOCUMENTOS$\00_Notícias\Acessos\InventSoftware\" & strCompName & ".txt", True)
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & _
objSoftware.InstallDate
Next
objTextFile.Close
Else
WScript.Echo "Cannot retrieve software from this computer."
End If
xxx
Conto com a colaboração dos colegas,
Sds,
Wagner
Wagner
