; TEST.KIX
;Set Variables
CLS
$OS="@dos" ;OS Version
$public="\\THC-GA\Public" ;Public Share
$service="@comment" ;Department assigned from comment field
$Pserver="\\THC-GA\" ;Server for User Accounts
$department="$Pserver" + "$service" ;Departmental Share
;$personal="$Pserver" + "@userid$$" ;Personal Share
;BIG
;COLOR r+/n
;AT (2,4) "SEASONS"
;COLOR r+/n
;AT (10,4) "GREETINGS"
;SLEEP 5
CLS
Small
Color b+/n
Box (0,0,17,60,GRID) ;'background grid'
Color b/n
Box (2,4,15,58,Å) ;'shadow' of the box
Color g+/n
Box (2,3,14,57,FULL)
Color c+/n
At (4,6) "Greetings, @fullname!"
At (5,6) "Today is "@day" "@month" "@mdayno
SetTime "\\thc-ga\" ;SET the TIME
Color c+/n
At (7,6) "Time Synchronized : "
Color y+/n
At (7,32) @time + " on " + @date
Sleep 3 ;Wait for 10 secs (or key)
FlushKB
;SMALL
;COLOR b+/n
;BOX (0,0,17,60,GRID) ;'background grid'
;COLOR b/n
;BOX (2,4,15,58,Å) ;'shadow' of the box
;COLOR g+/n
;BOX (2,3,14,57,FULL)
;COLOR c+/n
;AT (4,6) "NOTICE: "
;AT (5,6) ""
;AT (7,6) ""
;AT (8,6) ""
;AT (9,6) ""
;SLEEP 10
;FLUSHKB
Small
Color b+/n
Box (0,0,17,60,GRID) ;'background grid'
Color b/n
Box (2,4,15,58,Å) ;'shadow' of the box
Color g+/n
Box (2,3,14,57,FULL)
;******************************************************************
;*** BEGIN Diplays User locale information
;******************************************************************
Color w+/n
At (4,6) "Userid : " ;display some text strings
At (5,6) "Full name : "
At (6,6) "Department : "
At (7,6) "Workstation : "
At (8,6) "Domain : "
At (9,6) "Logon Server : "
Color y+/n
At (4,21) @userid ;...and some macro's
At (5,21) @fullname
At (6,21) @comment
At (7,21) @wksta
At (8,21) @domain
At (9,21) @LSERVER
Sleep 2 ;Wait for 3 secs (or key)
FlushKB
;******************************************************************
;*** END Diplays User locale information
;******************************************************************
;******************************************************************
;*** BEGIN Diplays User locale information
;******************************************************************
Color b+/n
Box (0,0,17,60,GRID) ;'background grid'
Color b/n
Box (2,4,15,58,Å) ;'shadow' of the box
Color g+/n
Box (2,3,14,57,FULL)
;USE M: "$mail" ;MAP Mail Share
;COLOR w+/n
;AT (5,6) "Mail Share Mapped : "
;COLOR y+/n
;AT (5,32) "$mail"
;******************************************************************
;*** END Diplays User locale information
;******************************************************************
;******************************************************************
;*** BEGIN Instructions by Department
;******************************************************************
Use N: "$public" ;MAP Public Share
Color w+/n
At (6,6) "Public Share Mapped : "
Color y+/n
At (6,32) "$public"
Use O: "$department" ;MAP Department Share
Color w+/n
At (7,6) "Department Share Mapped : "
Color y+/n
At (7,32) "$department"
;USE P: "$personal" ;MAP Personal Share
;COLOR w+/n
;AT (8,6) "Personal Share Mapped : "
;COLOR y+/n
;AT (8,32) "$personal"
Goto $service ;Map additional shares for each DEPT
Goto ALL
;:~TEMPLATE OBJECT ;Template Object
;USE Q: "\\MERCURY\Working"
;COLOR w+/n
;AT (9,6) "Engineering WORKING Mapped"
;USE R: "\\MERCURY\Vault"
;COLOR w+/n
;AT (10,6) "Engineering VAULT Mapped"
;USE S: "\\MERCURY\DCN"
;COLOR w+/n
;AT (11,6) "Engineering DCN Mapped"
;USE T: "\\MERCURY\Plot"
;COLOR w+/n
;AT (12,6) "Engineering PLOT Mapped"
Goto ALL
:~Administration ;Administration
Goto ALL
:~AHPs
Use T: "\\Cs-cb\Transcription"
Color w+/n
At (9,6) "Transcription Mapped"
Goto ALL
:~Billing
Goto ALL
:~Clinical
Use T: "\\Cs-cb\Transcription"
Color w+/n
At (9,6) "Transcription Mapped"
Goto ALL
:~Diagnostics
Use T: "\\Cs-cb\Transcription"
Color w+/n
At (9,6) "Transcription Mapped"
Goto ALL
:~IT
;USE T: "\\Cs-cb.hvca-gc.com\Transcription"
;COLOR w+/n
;AT (9,6) "Transcription Mapped"
;GOTO ALL
Use S: "\\THC-GA\Software"
Color w+/n
At (10,6) "Software Mapped"
Goto ALL
:~MedicalRecords
;USE T: "\\POK-OAFS-1\Transcription"
;COLOR w+/n
;AT (9,6) "Transcription Mapped"
Goto ALL
Use U: "\\cbs-cb\Transcription"
Color w+/n
At (9,6) "Transcription Mapped"
Goto ALL
:~Accounting
Goto ALL
:~Physicians ;Physicians
Use * /DELETE
Use T: "\\Cbs-cb\Transcription"
Color w+/n
At (9,6) "Transcription Mapped"
Goto ALL
:~Scheduling
Goto ALL
;******************************************************************
;*** END Instructions by Department
;******************************************************************
:ALL
Sleep 3 ;Wait for 3 secs (or key)
CLS
FlushKB
;******************************************************************
;*** BEGIN General Registry Changes
;******************************************************************
;:HOMEPAGE
;$ReturnCode = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start
Page","http://slashdot.org/","REG_SZ")
;IF $Return code = 0
;? "Key Loaded...."
;ENDIF
:REGISTERED-OWNER
$ReturnCode = WriteValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","Napa
Valley Cardiovascular Associates, P.C.","REG_SZ")
If $Return code = 0
"Key Loaded...."
EndIf
$ReturnCode = WriteValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","The Health
Center","REG_SZ")
If $Return code = 0
"Key Loaded...."
EndIf
;:LANDESK
;IF EXIST ("C:\PROGRAM FILES\INTEL\LDCM\BIN\IIDS.EXE")
; $ReturnCode = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\Client Manager\CurrentVersion","Remote Admin
Computer Address",3232235789,"REG_DWORD")
; IF $Return code = 0
; ? "Key Loaded...."
; ENDIF
; $ReturnCode = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\Client Manager\CurrentVersion","Remote Admin
Computer Name","","REG_SZ")
; IF $Return code = 0
; ? "Key Loaded...."
; ENDIF
; $ReturnCode = WRITEVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\Client Manager\CurrentVersion","Remote Admin
Computer Port","6780","REG_SZ")
; IF $Return code = 0
; ? "Key Loaded...."
; ENDIF
;ENDIF
;******************************************************************
;*** END General Registry Changes
;******************************************************************
Small
Color b+/n
Box (0,0,17,60,GRID) ;'background grid'
Color b/n
Box (2,4,15,58,Å) ;'shadow' of the box
Color g+/n
Box (2,3,14,57,FULL)
;******************************************************************
;*** BEGIN Instructions by Group
;******************************************************************
:SOFTWARE
;IF INGROUP("APP-COUMCARE")
; USE G: "\\THC-GA\COUMCARE"
; COLOR w+/n
; AT (4,6) "CoumaCare Mapped"
;ENDIF
If InGroup("APP-PEACHTREE")
Use Q: "\\APP01\PEACHTREE"
Color w+/n
At (4,6) "PEACHTREE Mapped"
EndIf
If InGroup("APP-SOLOMAN")
Use S: "\\SUPERIOR-FS\SOLOMAN"
Color w+/n
At (5,6) "SOLOMAN Mapped"
EndIf
If InGroup("APP-APD")
Use R: "\\DENARI\EZTIMEG"
Color w+/n
At (6,6) "EZTIME Mapped"
Use T: "\\DENARI\TIMEOUT"
Color w+/n
At (7,6) "TIMEOUT Mapped"
EndIf
If InGroup("APP_HOLSTER")
Use U: "\\THC-GA\HOLSTER DAT
Color w+/n
At (4,6) "TRANSCRIPTION Mapped"
EndIf
; **Adding icon to group below's Desktop**
If InGroup("APP-Allscripts")
If Not Exist (%UserProfile% + "\Desktop\Allscripts.rdp")
Copy "\\Sec01\deploy\Shortcuts\Allscripts.rdp" %UserProfile% + "\Desktop"
EndIf
EndIf
;IF INGROUP("GROUP_NAME")
;USE R: "\\SERVER_NAME\SHARE"
;COLOR w+/n
;AT (8,6) "SHARE NAME Mapped"
;ENDIF
;******************************************************************
;*** END Instructions by Group
;******************************************************************
;******************************************************************
;*** BEGIN Miscellaneous Instructions
;******************************************************************
; **Clears the C:\TEMP Directory** [BEGIN]
:CLEAR
Go C:
Del "C:\TEMP\*.PDF"
Del "C:\TEMP\*.DWG"
Del "C:\TEMP\*.DOC"
Del "C:\TEMP\*.BMP"
Del "C:\TEMP\*.JPG"
Del "C:\TEMP\*.TXT"
Del "C:\TEMP\*.XLS"
Del "C:\TEMP\*.PPT"
Del "C:\TEMP\*.MDB"
Del "C:\TEMP\*.ZIP"
Del "C:\TEMP\*.EXE"
; **Clears the C:\TEMP Directory** [END]
; ** Distribute updated "Hosts" file to clients [Begin] **
;$FileName='hosts'
;$SrcPath='\\server\share'
;if $OStype='NT'
; $DestPath='$DllDir\drivers\etc'
;else ; OS=9x
; $DestPath='%windir%'
;else ; OS=XP
; $DestPath='%SystemRoot%\system32\drivers\etc'
;endif
;$DestFile=$DestPath+'\'+$FileName
;$SrcFile=$SrcPath+'\'+$FileName
;if comparefiletimes($DestFile,$SrcFile)<0 or 1-exist($DestFile)
; copy $SrcFile $DestPath
;endif
; ** Distribute updated "Hosts" file to clients [End] **
;IF EXIST ("C:\FLAG.TXT")
; GOTO SOFTWARE
; ELSE
; GO C:
; CD C:\
; MD TEMP
; COPY "N:\TEMPLATES\*.DOT" "C:\WINDOWS\APPLICATION DATA\MICROSOFT\TEMPLATES\*.*"
; COPY "N:\TEMPLATES\*.TXT" "C:\*.*"
;ENDIF
;******************************************************************
;*** END Miscellaneous Instructions
;******************************************************************
:END
CLS
Exit
