sexta-feira, 29 de novembro de 2013

VBScript melhora acesso ao HCM210 e da prioridade no Sistema ( VBScript )

Dim MaqName, BtnCode, bKey
Const OverwriteExisting = True

Set Wshell   = CreateObject("Wscript.Shell")
Set Net      = CreateObject("Wscript.Network")
Set FSODrive = CreateObject("Scripting.FileSystemObject")
CompName     = Wshell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Usuario      = Wshell.ExpandEnvironmentStrings("%USERNAME%")

Wshell.Run "%Windir%\system32\Rundll32.exe advapi32.dll, ProcessIdleTasks " 

If FSODrive.DriveExists("R:") Then
  If not FSODrive.FileExists("C:\dlc101c\bin\HCM210_10c_"&CompName&"_"&Usuario&"_15.exe") Then
     FSODrive.CopyFile "C:\dlc101c\bin\prowin32.exe", "C:\dlc101c\bin\HCM210_10c_"&CompName&"_"&Usuario&"_15.exe", OverwriteExisting
  End if
  Wshell.Run "C:\dlc101c\bin\HCM210_10c_"&CompName&"_"&Usuario&"_15.exe -basekey "+"ini"+" -ininame R:\hcm\210\scripts\ini\hcm210-luciano.ini -pf  R:\hcm\210\scripts\pf\hcm210-luciano.pf -p alias\menu.p -param HUR"
Else
  Mensagem()
End If

Function Mensagem
strTitulo = "Seção Técnica de Informática"
strMensagem = _
"AVISO IMPORTANTE" & vbcrlf & vbcrlf & _
"Favor entrar em contato com o Departamento de TI" & vbcrlf & _
"Não existe servidores disponiveis para mapeamento" & vbcrlf & _
"Ligar para 8960 - Antonio Luis Deonisio"
'BtnCode = WshShell.Popup(strMensagem, 5, "Informação:", 64 + 0)
msgbox strMensagem, 0 + 64, strTitulo
End Function

Nenhum comentário:

Postar um comentário