mahtanoronra
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Set WshShell = CreateObject("WScript.Shell")
dim login, pass
LOGIN = "yourlogin"
PASS = "yourpass"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists("PROFILE") Then
FSO.CreateFolder("PROFILE")
End If
If Not FSO.FolderExists("PROFILE\" & LOGIN) Then
FSO.CreateFolder("PROFILE\" & LOGIN)
If FSO.FileExists("PROFILE\config.xml") Then
FSO.CopyFile "PROFILE\config.xml", "PROFILE\" & LOGIN & "\"
End If
End If
WshShell.Run "skype.exe /secondary /datapath:PROFILE /removable /nosplash /minimized"
'WshShell.Run "webcam\webcam.exe USB\VID_046D&PID_0826&REV_0010&MI_02 USB\VID_046D&PID_0826&REV_0010&MI_00" |
